class triangle s1 s2 s3 ~c1 ~c2 ~c3= 
object(this)
    inherit Graphics.render ()
    val mutable s1 = s1
    val mutable s2 = s2
    val mutable s3 = s3
    val mutable c1 = c1
    val mutable c2 = c2
    val mutable c3 = c3

    method draw file_de_fer=
        if not file_de_fer then 
            GlDraw.begins `triangles
        else
            GlDraw.begins `line_strip;

        GlDraw.color c1;
        GlDraw.vertex3 s1;

        GlDraw.color c2;
        GlDraw.vertex3 s2;

        GlDraw.color c3;
        GlDraw.vertex3 s3;

        GlDraw.ends ();
end
